home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / t_os / gpen32k / source.exe / LIB / OSRC / MENU.C < prev    next >
C/C++ Source or Header  |  1993-08-09  |  4KB  |  222 lines
  1. /*
  2.             Towns Menu-Bar   ver. 0.001
  3.                             Copyright(C) 1993 Okome
  4. */
  5.  
  6. #include <string.h>
  7. #include <EGB.H>
  8. #include <MOS.H>
  9. #include <sidework.h>
  10. #include <normlib.h>
  11. #include <okome.h>
  12.  
  13. extern char work[];
  14. extern char *MEN_title[];
  15. extern int MEN_kazu[];
  16. static int mex[16], mel[16], ebf;
  17.     int MEN_si=0, MEN_ss;
  18.  
  19. static int ml( int i )
  20. {
  21.     int k, l=0;
  22.     for (k=0; k<=i; k++)
  23.         l+=MEN_kazu[k];
  24.     return (l);
  25. }
  26.  
  27. static int ubs( int i, int m )
  28. {
  29.     static int j=-1, n=0;
  30.     int k, l;
  31.     if (j != i)
  32.     {
  33.         if (j >= 0)
  34.         {
  35.             ubox2( mex[j], 0, mex[j+1]-1, 19, 15, 8 );
  36.             OKM_gth(mex[j],20,mex[j]+mel[j],23+MEN_kazu[j+1]*16,0);
  37.         }
  38.         j = i;
  39.         n = 0;
  40.         if (i >= 0)
  41.         {
  42.             ubox2( mex[i], 0, mex[i+1]-1, 19, 1+(i==0)*7, 1+(i==0)*7 );
  43.             OKM_gth(mex[j],20,mex[j]+mel[j],23+MEN_kazu[j+1]*16,1);
  44.             boxbf( mex[i], 20, mex[i]+mel[i]-2, 21+MEN_kazu[i+1]*16, 8, 15 );
  45.             boxb( mex[i], 20, mex[i]+mel[i]-1, 22+MEN_kazu[i+1]*16, 8 );
  46.             boxb( mex[i], 20, mex[i]+mel[i], 23+MEN_kazu[i+1]*16, 8 );
  47.             l = ml(i);
  48.             for (k=0; k<MEN_kazu[i+1]; k++)
  49.             {
  50.                 font12( mex[i]+8, 34+k*16, MEN_title[l+k], 8 );
  51.             }
  52.         }
  53.     }
  54.     if ( i>=0 )
  55.     {
  56.         if ( m!=n )
  57.         {
  58.             EGB_writeMode( work, 4 );
  59.             if (n>0)
  60.             {
  61.                 boxf( mex[i]+1, n*16+5, mex[i]+mel[i]-3, n*16+20, 7 );
  62.             }
  63.             if (m>0)
  64.             {
  65.                 boxf( mex[i]+1, m*16+5, mex[i]+mel[i]-3, m*16+20, 7 );
  66.             }
  67.             EGB_writeMode( work, 0 );
  68.             n = m;
  69.         }
  70.         if (m > 0)
  71.         {
  72.             if (i==0 && MEN_si<m && MEN_si+MEN_ss-1>m)
  73.             {
  74.                 sdk_chain(m-MEN_si);
  75.                 return (8000+m-MEN_si);
  76.             }    else    {
  77.                 return (i*100+m);
  78.             }
  79.         }
  80.     }
  81.     return (0);
  82. }
  83.  
  84. static int menx(int mx)
  85. {
  86.     int i = 1;
  87.     while ( mex[i] <= mx )
  88.         i++;
  89.     return (i-1);
  90. }
  91.  
  92. static int mebox( int mb, int k )
  93. {
  94.     int i = 0, j, mx, my, l;
  95.     l = k*23;
  96.     while (mb != 0)
  97.     {
  98.         MOS_rdpos( &mb, &mx, &my );
  99.         j=i;
  100.         i = ( mx >= 610-l && mx <=629-l && my < 20 ) ? 1 : 0 ;
  101.         if (j!=i)
  102.         {
  103.             MOS_disp( 0 );
  104.             ubox2( 610-l, 0, 629-l, 19, 15-i*7, 8 );
  105.             MOS_disp( 1 );
  106.         }
  107.     }
  108.     MOS_disp( 0 );
  109.     ubox2( 610-l, 0, 629-l, 19, 15, 8 );
  110.     MOS_disp( 1 );
  111.     return (i);
  112. }
  113.  
  114. int MEN_menu( int mb, int mx, int my )
  115. {
  116.     int p, i, r = 0, j = -1, z = 1, mb2;
  117.     p = EGB_getWritePage( 0, 0 );
  118.     EGB_writePage( work, 0 );
  119.     if ( mb && mex[MEN_kazu[0]] > mx && my < 20 )
  120.     {
  121.         while ( z != 0 )
  122.         {
  123.             mb2 = mb;
  124.             MOS_rdpos( &mb, &mx, &my );
  125.             if ( mex[MEN_kazu[0]] > mx && my < 20 )
  126.             {
  127.                 if ( mb )
  128.                 {
  129.                     i = menx(mx);
  130.                     if ( j!=i || r )
  131.                     {
  132.                         MOS_disp( 0 );
  133.                         r = ubs( i, 0 );
  134.                         MOS_disp( 1 );
  135.                         j = i;
  136.                     }
  137.                     z = 2;
  138.                 }    else    {
  139.                     z = 1;
  140.                 }
  141.             }
  142.             if ( mex[j] <= mx && mex[j]+mel[j] >= mx &&
  143.                  20 < my && my < 21 + MEN_kazu[j+1] * 16 )
  144.             {
  145.                 if (mb!=0)
  146.                 {    /*    SUB menuの処理    */
  147.                     i = (my - 21) / 16;
  148.                     MOS_disp( 0 );
  149.                     r = ubs( j, i+1 );
  150.                     MOS_disp( 1 );
  151.                     z = 3;
  152.                 }    else    {
  153.                     if ( z==3 && mb2 )
  154.                     {
  155.                         z = 0;
  156.                     }
  157.                     if ( z==2 )
  158.                     {
  159.                         z = 1;
  160.                     }
  161.                 }
  162.             }    else    {
  163.                 if ( z==3 && mb)
  164.                 {
  165.                     MOS_disp( 0 );
  166.                     r = ubs(j, 0);
  167.                     MOS_disp( 1 );
  168.                     z = 4;
  169.                 }
  170.                 if ( (mex[MEN_kazu[0]] > mx && my < 20)==0 )
  171.                 {
  172.                     if (((z==1) && mb) || ((z==2 || z==4) && mb==0))
  173.                     {
  174.                         z = 0;
  175.                     }
  176.                 }
  177.             }
  178.         }
  179.         MOS_disp( 0 );
  180.         ubs( -1, 0 );
  181.         MOS_disp( 1 );
  182.         do    {
  183.             MOS_rdpos( &mb, &mx, &my );
  184.         }    while( mb != 0 );
  185.     }    else    {
  186.         if ( mx >= 633-23*ebf && mx <= 629 && my < 20 && (629-mx) % 23 < 20)
  187.         {    /*    ENDボタン    */
  188.             i = (629-mx) / 23;
  189.             if (mebox( mb, i ))
  190.                 r = 9999 - i;
  191.         }
  192.     }
  193.     EGB_writePage( work, p );
  194.     return (r);
  195. }
  196.  
  197. void MEN_set( int b )
  198. {
  199.     int i, j=0, k, l;
  200.     boxbf( 0, 0, 639, 19, 0, 7 );
  201.     ebf = b;
  202.     for (i = 0; i < MEN_kazu[0]; i++)
  203.     {
  204.         j += strlen(MEN_title[i])*6+34;
  205.         mex[i+1] = j;
  206.         boxf( mex[i], 0, j-1, 19, 1+(i==0)*7 );
  207.         ubox2( mex[i], 0, j-1, 19, 15, 8 );
  208.         font12( mex[i]+13, 16, MEN_title[i], 15 );
  209.         l = ml(i);
  210.         for (k=0; k<MEN_kazu[i+1]; k++)
  211.         {
  212.             if ( strlen(MEN_title[l+k])*6+16 > mel[i] )
  213.                 mel[i] = strlen(MEN_title[l+k])*6+18;
  214.         }
  215.     }
  216.     for (i = 0; i < b; i++)
  217.     {
  218.         boxf( 610-i*23, 0, 629-i*23, 19, 8 );
  219.         ubox2( 610-i*23, 0, 629-i*23, 19, 15, 8 );
  220.     }
  221. }
  222.